*** In order to estimate the results on tables 6,7 and 8 the following Stata data base has to be used:

use "C:\Users\christiano\paper consignado revisao Rstats\Database Rstats\database_tables_6_7_8_Rstats.dta"

*** Defining cross section and time variables:
tsset cluster_variable time

*** Regressions Table 6***
xtreg  monthly_new_loans  dum_time1-dum_time78  treatment_direct_effects if  dummy_authorized==1, fe cluster(cluster_variable) 
xtreg  monthly_interest_rates  dum_time1-dum_time78  treatment_direct_effects if  dummy_authorized==1, fe cluster(cluster_variable) 

*** observation: interest rate data are on monthly basis. In order to reproduce the results of the paper one has to 
*** annualize the interest rate coefficient

*** Regressions Table 7***
xtreg  monthly_interest_rates  dum_time1-dum_time78  treatment1 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_interest_rates  dum_time1-dum_time78  treatment2 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_interest_rates  dum_time1-dum_time78  treatment3 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_interest_rates  dum_time1-dum_time78  treatment4 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_interest_rates  dum_time1-dum_time78  treatment6 if  dummy_authorized==0, fe cluster(cluster_variable) 

*** observation: interest rate data are on monthly basis. In order to reproduce the results of the paper one has to 
*** annualize the interest rate coefficient
*** observation: the actual threshold date of the last column of this table is December 2005, not May 2006 

*** Regressions Table 8***
xtreg  monthly_new_loans  dum_time1-dum_time78  treatment1 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_new_loans  dum_time1-dum_time78  treatment2 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_new_loans  dum_time1-dum_time78  treatment3 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_new_loans  dum_time1-dum_time78  treatment4 if  dummy_authorized==0, fe cluster(cluster_variable) 
xtreg  monthly_new_loans  dum_time1-dum_time78  treatment5 if  dummy_authorized==0, fe cluster(cluster_variable) 

*** observation: the actual threshold date of the last column of this table is December 2005, not May 2006
